home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_##_(05-1985).d64 / connect four (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  75 lines
  1. 10 ROM=198:POKE53280,1:POKE53281,1:REM            FOR COMMODORE 64
  2. 100 GG$=" "
  3. 120 DIMA(7),A%(7),B(7),B%(8,8),N$(2):SQ=49:OPEN1,0,0:M$="[147]"
  4. 130 PRINTM$"DO YOU NEED INSTRUCTIONS ? "
  5. 140 GETU$:IFU$=""THEN140  
  6. 150 IFU$<>"Y"ANDU$<>"N"THEN140  
  7. 160 IFU$="Y"THEN700  
  8. 170 FORJ=1TO2:PRINTM$"PLAYER"J"(MAX.=6 LETTERS) ? ";:INPUT#1,N$(J)
  9. 180 IFLEN(N$(J))>6THENN$(J)=MID$(N$(J),1,6)
  10. 190 NEXT
  11. 200 PRINT"[147][144]":FORZ=1TO15
  12. 210 PRINT" [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]"
  13. 220 NEXT
  14. 230 FORZ=1TO2:PRINT" [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]":NEXT
  15. 240 PRINT"    1    2    3    4    5    6    7"
  16. 250 FORF=1TO7:READA(F):NEXT
  17. 260 DATA1187,1267,1347,1427,1507,1587,1667
  18. 270 FORF=1TO7:READB(F):NEXT
  19. 280 DATA1027,1032,1037,1042,1047,1052,1057
  20. 290 PRINTGG$;N$(1)"=  [146]="WH;"          "N$(2)"=[166][166]="BL
  21. 300 GETR$:IFR$=""THEN300  
  22. 310 IFVAL(R$)=0ORVAL(R$)>7THEN300  
  23. 320 R=VAL(R$)
  24. 330 IFA%(R)=7THEN300  
  25. 340 IFN=160THENN=102:POKE1989,81:POKE56261,0:POKE2012,32:GOTO360
  26. 350 N=160:POKE2012,81:POKE56284,0:POKE1989,32
  27. 360 GOSUB400  :A%(R)=A%(R)+1:GOTO430  
  28. 370 SQ=SQ-1:POKEROM,0
  29. 380 IFSQ=0THENPRINT""SPC(15)"NO WINNER!!":FORBB=1TO1500:NEXT:GOTO640  
  30. 390 GOTO300  
  31. 400 FORW=B(R)TOA(7-A%(R))+5*RSTEP40
  32. 410 FORQ=WTOW+2:POKEQ+40,N:POKEQ-40,32:NEXT:POKEA,N/2:FORT=1TO5:NEXT:POKEA,0
  33. 420 NEXT:RETURN
  34. 430 B%(R,A%(R))=N
  35. 440 FORH=A%(R)TO1STEP-1:IFB%(R,H)<>NTHEN460  
  36. 450 CO=CO+1:NEXT
  37. 460 IFCO>=4THEN570  
  38. 470 FORH=1TO3:IFB%(R+H,A%(R))=NTHENNEXT
  39. 480 FORI=1TO3:IFB%((R-I),A%(R))=NTHENNEXT
  40. 490 IFI+H>4THEN570  
  41. 500 FORH=1TO3:IFB%(R+H,A%(R)+H)=NTHENNEXT
  42. 510 FORI=1TO3:IFB%(R-I,A%(R)-I)=NTHENNEXT
  43. 520 IFI+H>4THEN570  
  44. 530 FORH=1TO3:IFB%(R-H,A%(R)+H)=NTHENNEXT
  45. 540 FORI=1TO3:IFB%(R+I,A%(R)-I)=NTHENNEXT
  46. 550 IFI+H>4THEN570  
  47. 560 CO=0:GOTO370  
  48. 570 FORL=1TO3:FORQ=0TO255STEP5:POKEA,Q:NEXT:POKEA,0:NEXT
  49. 580 FORW=1074TO1114STEP40
  50. 590 FORQ=WTOW+2:POKEQ,N:NEXT:NEXT
  51. 600 PRINT""SPC(14)"IS THE WINNER !!!"
  52. 610 FORRR=1TO1000:NEXT
  53. 620 IFN=102THENBL=BL+1:GOTO640  
  54. 630 WH=WH+1
  55. 640 RESTORE:FORXX=1TO7:A%(XX)=0:NEXT:SQ=49:CO=0
  56. 650 FORXX=1TO7:FORXV=1TO7:B%(XX,XV)=0:NEXT:NEXT
  57. 660 PRINT"";:FORTV=1TO3:PRINT"                                       ";:NEXT
  58. 670 PRINT:FORZ=1TO15
  59. 680 PRINT"[144] [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]"
  60. 690 NEXT:POKEROM,0:N=102:POKE1989,81:POKE2012,32:GOTO250
  61. 700 PRINT"[147]   ";
  62. 710 POKE53272,23:FOREE=1TO22:PRINT"C[207][206][206][197][195][212] F[207][213][210][157][157][157][157][157][157][157][157][157][157][157]";:NEXT
  63. 720 FORT=1TO2000:NEXT:PRINT"[147]"
  64. 730 PRINT"   T[200][197] [207][194][202][197][195][212] [207][198] [212][200][197] [199][193][205][197] [201][211] [212][207] [199][197][212] [198][207][213][210][207][198] [217][207][213][210] [208][201][197][195][197][211] [201][206] [193] [210][207][215]";
  65. 740 PRINT". Y[207][213] [195][193][206] [196][207] [212][200][201][211][200][207][210][201][218][207][206][212][193][204][204][217],[214][197][210][212][201][195][193][204][204][217],[207][210] [196][201][193][199][207][206][193][204][204][217]."
  66. 750 PRINT"  T[207] [205][207][214][197],[217][207][213] [193][206][196][160][217][207][213][210] [207][208][208][207][206][197][206][212] [212][193][203][197] [212][213][210][206][211][160][196][210][207][208][208][201][206][199] [217][207][213][210] [207][215][206] ";
  67. 760 PRINT"[195][207][204][207][210][197][196] [208][201][197][195][197] [201][206][212][207] [207][206][197][160][207][198][160][212][200][197][160][211][197][214][197][206][160][206][213][205][194][197][210][197][196][160][195][207][204][213][205][206][211].Y[207][213] [196][207][160][212][200][201][211]";
  68. 770 PRINT" [194][217] [212][217][208][201][206][199][160][212][200][197][160][206][213][205][194][197][210][160][207][198][160][212][200][197][160][195][207][204][213][205][206][201][206] [215][200][201][195][200][160][217][207][213][160][215][201][211][200][160][212][207][160][196][210][207][208][160][193]";
  69. 780 PRINT" [208][201][197][195][197].I [215][201][204][204][160][211][201][199][206][193][204][160][201][198][160][207][206][197] [207][198] [217][207][213] [215][201][206][211][160][193][206][196] [212][197][204][204][160][217][207][213][160][215][200][207][160][200][193][211][160][215][207][206]";
  70. 790 PRINT".  I [215][201][204][204] [208][210][201][206][212] [193] [194][193][204][204] [213][206][196][197][210] [217][207][213][210] [206][193][205][197][160][215][200][197][206][160][201][212]'[211] [217][207][213][210] [212][213][210][206].";
  71. 800 PRINT"W[200][201][212][197] [199][207][197][211] [198][201][210][211][212].";
  72. 810 PRINTSPC(7)"PRESS ANY KEY !"
  73. 820 GETU$:IFU$<>""THENPOKE53272,21:GOTO170
  74. 830 GOTO820  
  75.